home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / patch / lexikon / install < prev    next >
Text File  |  1997-12-14  |  4KB  |  158 lines
  1. ; * $VER: Install Patch for DAS EPIC MULTIMEDIA LEXICON 1.0
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set Opt 2)
  8. (set #welcome
  9.   (cat
  10.     "\n\n\nWelcome to the Patch Utilitie for the great\n"
  11.     "DAS EPIC MULTIMEDIA LEXIKON ©1997 Epic Marketing.\n\n"
  12.     "(Only tested with german version!)\n\n"
  13.     "This Patch installs a Screenmoderequester,\n"
  14.     "for VGA Screenmodis under AGA, and Graficcards.\n\n"
  15.     "The Patch is written 1997 by Eckhard Ludwig."
  16.   ))
  17.  
  18. (set #choose-text
  19.   (cat "Please choose a directory where Lexikon should be installed. A drawer will be created there."
  20.   ))
  21.  
  22. (set #choose-help
  23.   (cat "In this location a drawer will be created. All files will be installed inside this drawer. The complete installation will require about 170KB of free harddisk space."
  24.   ))
  25.  
  26. (set #inst-main
  27.   (cat "Installing Lexikon ..."
  28.   ))
  29.  
  30. (set #work-patch
  31.   (cat "\nPlease wait ...\n\n"
  32.     "Patch Application"
  33.   ))
  34.  
  35. (set #create-maindir
  36.   (cat "Creating EPIC directory"
  37.   ))
  38.  
  39. (set #inst-docs
  40.   (cat "Installing program documentation ..."
  41.   ))
  42.  
  43.  (SET #exit-Msg 
  44.   (CAT "\n\nMuch fun with Programmes\n wish you\n\n"
  45.                    "Eckhard Ludwig" 
  46.   ))
  47.  
  48. ; deutsche Texte *****************************
  49.  
  50. (IF (= @language "deutsch")
  51. (
  52. (set Opt 1)
  53. (set #welcome
  54.   (cat
  55.     "\n\n\nWillkommen zu dem Patch Utility für\n"
  56.     "DAS EPIC MULTIMEDIA LEXIKON ©1997 Epic Marketing.\n\n"
  57.     "Der Patch installiert einen Screenmoderequester,\n"
  58.     "womit unter AGA hochauflösende VGA Screenmodes,\n"
  59.     "und Grafikkarten benutzt werden können\n\n"
  60.     "Patch is written 1997 by Eckhard Ludwig."
  61.   ))
  62.  
  63. (set #choose-text
  64.   (cat "Bitte wählen Sie das Verzeichniss wohin Lexikon installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  65.   ))
  66.  
  67. (set #choose-help
  68.   (cat "Bei der Installation werden alle Dateien in dieses Verzeichniss installiert. Die vollständige Installation belegt auf der Festplatte etwa 170KB."
  69.   ))
  70.  
  71. (set #create-maindir
  72.   (cat "Erstelle EPIC Verzeichniss"
  73.   ))
  74.  
  75. (set #inst-main
  76.   (cat "Installiere Lexikon ..."
  77.   ))
  78.  
  79. (set #work-patch
  80.   (cat "\nBitte warten ...\n\n"
  81.     "Patche Application"
  82.   ))
  83.  
  84. (set #inst-docs
  85.   (cat "Installiere Programm Dokumentation ..."
  86.   ))
  87.  
  88. (SET #exit-Msg
  89.   (CAT "\nZum Starten des EPIC MULTIMEDIA LEXIKON doppelklicken sie in der neu angelegten Schublade EPIC das Lexikon Programmicon.\n\n"
  90.      "In dem darauf erscheinenden Bildschirmmode Requester wählen sie die gewünschte Auflösung.\n Für Picasso96 Grafikkartentreiber ist Workbench:Klonen auszuwählen!\n\n"
  91.   ))
  92. ))
  93. ;*********************************************
  94. ; Greetings & Path ...
  95.  
  96. (message #welcome)
  97.  
  98. (welcome)
  99.  
  100. (set @default-dest (getassign "Work" "dva"))
  101.   (if (= @default-dest "")
  102.    (set @default-dest "SYS:"))
  103.   
  104. (set @default-dest (askdir
  105.     (prompt #choose-text)
  106.     (help #choose-help)
  107.     (default @default-dest))
  108.   ) 
  109.  
  110. (set @default-dest (tackon @default-dest "EPIC"))
  111.  
  112. (makedir @default-dest (prompt #create-maindir)(infos))
  113.   
  114. ;*********************************************
  115. ; Installation procedure
  116. ; 
  117.  
  118. (set newfile (tackon @default-dest "Application"))
  119. (set oldfile "LEXIKON:Application")
  120. (set patchfile "Application.ptch")
  121.  
  122. (if (= (exists oldfile) 0)
  123.     (abort oldfile " not found!" "\nPlease insert EPIC Multimedia Lexikon CDROM first!")
  124. )
  125.  
  126. (copyfiles
  127.     (prompt    #inst-main)
  128.     (help    @copyfiles-help)
  129.     (source "LEXIKON:Lexikon")
  130.     (dest    @default-dest)
  131.         (confirm "EXPERT")
  132.         (optional "force")
  133.     (infos)
  134. )
  135.  
  136. (complete 10)
  137.  
  138. (working #work-patch)
  139. (run ("GPatch \"%s\" \"%s\" \"%s\"" oldfile patchfile newfile))
  140.  
  141.  
  142. (complete 90)
  143.  
  144. (copyfiles
  145.     (prompt    #inst-docs)
  146.     (help    @copyfiles-help)
  147.     (source "readme")
  148.     (dest    @default-dest)
  149.        (optional "force")
  150.        (confirm "EXPERT")
  151.     (infos)
  152. )
  153.  
  154. (complete 100)
  155.  
  156.  
  157. (EXIT #exit-Msg )
  158.